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( x_si^ a!i a_c. a lJ-ac- ? 996 ^^- c ' 4 _a1*j 

A_juj^)Aa ^_3 A_ijlAijVl ,CAJijSjVI A^j_A ^g. 1c. 

^_3 <Ja_jaijiLall A_L^.^a1I j L_£jLj A _ijIALVI lS^ cl)^ 


l 1 **^ 


^ t_ilLa. <jlj_Aa^)ll <Ua_ ujj!1a ^ \ _£jLj 'Ljuj^Luj _11 A_la_ ujjIaII 

A_£1aa11j L_g_jlj ( j±A^ A_)^jlj ( ^_9 A_2^jllll A j 

^ ts-a 2007 j»LJ' I^A jVI o-._A> j^j , 

(JL^a ^g_9 A_ja1 j ? ^ajILj aj AjlaL^j (jLluiVl L > ^ 

A3 j j L&^)JC- j AjLu ^all j jX3l ^aII * t, j A ^ ^ j ^1 aj> «alill 

A_ij jjj^IVI <.-1 j£ 11 L-kJlJi] A jAjU'ill jj_jjjjVl A-Loi Luj Li_jl 

.jVi ^i*jj ji j Iaj 
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(jjSn ) 

Text 


?Text ja u :JI>> 

(jl^al ^-^.Ij 4_l3 j <L_jtj£Jl ^J_2 (J-sa-j (_j_C- 6^)1—JC. j_A 

fTexti .( 1 ) .<ailL* 

1 

. S- 

; ^aI 

■ A ls* ^Vi ja j ; Name 

t-a255 u-* j>£j j' , l£j-4h! ^uj^ u' ) 

.( , \* LS^ iSj^. V J ,^J J! 

(,j 3 j jLuij , ) (j-aili ^ Ajtiili <*i : Alignment 

.( Flat, 3d ) .^jkli : Appearance 

.(.,cijj', ) .o-^' : Back color 

.( None , Fixed Single ) j^' : Border Style 

.( False , True ) c> a£^' : Enabled 

.(..., L^La , , JaaJl £ JJ , ) .JaaJl ! Font 

.( , t $jJ , uj^ : Fore color 

.(fSj ) .u-aili J : Height 
.( fSj ) .ysi o-ajJl : Left 

.( False , True ) .(^^ ) Jj^ : Locked 
.( ) m p\i ijVi J ^ ^»aVi ^11 : Max Length 

.( >j J J ) .>-11 >j : Password Char 

.( False , True ) jW' J! j^' c> : Right to Left 
.( J j' j ) .u-°^i <4 m o-^' ; Text 

ji <4j </') .U^l ^ jxdtoil ±jc- >^iaj ^151 u-alll : Tool Tip Text 

.( >j j' 4j* 
.( (j-aill ; Top 

.( False , True ) .gHj* : Visible 
.( 4 j ) -o^i ■ Width 

; cjUIj^VI <*a' 

*-<all Aic. dl.Wj dl,w\l jAj [ Click 

.(j-ajli £ 0 * Jc. &jtili a£ Me. di^Ji ja j ; Mouse Move 

.o^i c5^ j : Change 
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Commandl 


Command ^ 

^Command j* u ; J!>^ 

.( 2 d^> ) jj cj^ 6 


2 J^aI 


; \l ^a! 

; ^ i jjAi i|# »j jJi j jSli ^ ^Vi j*j : Name 

(_iJ_a. 255 j-a 3 ,l a.. n' l jj£j (ji , (J jjlaj) *-*.J-*J j"' ) 

.(^ j <,>, = ,- , + ,/ , \, * ijc- v o* ,^'j ‘- i j^ J! 

.( ,6j j*, _>^i) .jj 1 ' uJ : Back Color 

■( ji jij csi) .jjli Jc. ujj^ali oaJi jAj : Caption 

.( False , True ) : Enabled 

.(..., Jit* , Jjj*a , JaaJi , '•>>*»" ) .JaaJi ; Font 


.(r^j ) .jj 1 ' J_>1» : Height 
.( j»5j ) .tjaai j-aill <yja jl£a : Left 

.( 4-Ajti ja ) .jjl! Je Jljail Sjj*aall ; Picture 

.( False , True ) .J-d 1 J! <> : Right To Left 

.( r*j , ) jjli Jaai : Style 

.( >»J j' <-*>* j' cs' ) .U^' ^ O^' : Tool Tip Text 

.( ) .Ljjae. (jaill £Jja jlSa | Top 

.( False , True ) ,<A>- : Visible 
.() oi 11 : Width 

C- dall Ale CllA^J <_£a!I i—)AaJl jAj ! Click 

.jjll Jc. SjUli ^ie d^ ^a 1! djA^ii ja j ; Mouse Move 
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Timer ^ 


?Timer j* i*: J!>» 
.( 3 ) .0* JfaJi qa j ^*_j Ja*j CIjS^ (jc. ajUc- jA 


3 l \1 

■ L 5 ^ .gr?^A ja j ; Name 

t_ajja. 255 u-* u>^ J , ls j^ni ^j^? uj^ u') 

.( <,>, = ,- , + ,/ ,\ ,*L5^ iSj^i V j! ,^ij J) 

.( False , True ) .u^' : Enabled 
^ Ls ^\j (A-ijij 1 = 1000 ) g^l : Interval 

.( 65.535 ) .( aAH 65 = 65 . 535 ) ^ ^ 

.(fSj ) .Lai ci>3l jlfL* : Left 
.( ) Ljjxc. c^a>]l jl£* : Top 

; diLI^^Vl ^a^ 
<jU£ juc. djjLaJi ; Timer 
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Label ^ 


?Label ja i* : Jl>» 

(jl^al ,a-a.lj 4 _i 3 djL-jLull ^ ya^yC- j ^JlJ ^a_j cl)- 1 ' JC. J-A 

_( 4- ) _4 qV'^-v ^ 


Labell 


4 


| ^j^ajl \l ^aI 

■ L5^ j>A? -irT^ Aj^i ^jiVI ja j ; Name 

c_ajja. 255 u-* J , d? SP^l ^j^? uj^ u') 

.( < , > , = ,- , + ,/ ,\ ,*J c - ^ J ,^'j ‘- i j^ J! 

( j jLjj i Q14J) (_yaill £}j* y SjIjSII ■ Alignment 

.( Flat, 3d ) .cs-j^li j g ! Appearance 
.(False,True).M Utils : Auto Size 

.(.,l 9 jj' , ) .o^i : Back color 

.( jjS , -k*j ; Back Style 

.( None , Fixed Single ) ; Border Style 

.( ji Ljja. ) .(j-aili p ^ jjUI (j-aili jAj ; Caption 

.( False , True ) .a£*sii : Enabled 

.(..., f JaaJl £ji , ) .JaiJl ! Font 


.(. : Fore color 

.( ) .lk^i : Height 

.(r^j ) cP* : Left 

.( False , True ) jW J) tW' c> : Right to Left 
.( j*J j' ( -®J a ‘ j' </' ) .<J^' &>» ^ jddjl\ Ale. j^Jaj ^ill jaUI : Tool Tip Text 

.( (j-aill cP* : Top 
.( False , True ) : Visible 

.( u- 3 ! Width 

.(j-saill £Jj-a C5^ c ' jJ)J la*t>ill Aic- Lj.laj Lj.1=J| jAj | OHck 

.o^i *j^' ^4ic. dj^Ji ja j ; Mouse Move 

<j4Jj Text C5-3 . JSLLli j& Label o^il' Text 

Text u-aili ^ , Label ^ ^ Caption ^ j Text 

_0-alj \Jl ^lAkiuol La jjjjm ijWw.i V Label Laiu ^oalj^>J! ^l.’lA'nnl c-Lli! 


^cU^a]! jaljLkiujI U 

|:ps://iadidpdf.c6m 

























Form ^ 

?Form ja i*: Ji>> 

j Text ^ l$\ ^ajuJ^)] 4 a^-v nnJl 4 j^.Lju1a]1 ^JC> j& 

o* tAjjc.j Frame jLinejTimer j Label j Command 

.( 5 ) . j^qU*]| 

5 jis 

; (_y ajl 

■ L 5 ^ .gr?^ j^i Aj^i ^jiVI ja j ; Name 

c_ajja. 255 u-* u>^ J , ls j^? uj^ u') 

.( tA JjfrJ <,>, = ,-, + ,/, \ , * (Jc. v J ,^lj J! 

.(.,(ijji, ) .Form-S' : Back Color 

.(...Sizable , None,Fixed Single). : Border Style 
.( ji ) .Form-U c^ij Jc. ^<j^Ji j *j : Caption 

.( False , True ) .o^' : Enabled 
.(fSj ) .Form-S' J : Height 
.(jii qa jin^i) .Form-S' Jc- : Icon 

.() .Laai Form-S' u 1 ^ : Left 
.( False , True ) .Form-S' 4o^ " b : Moveable 
.(^is jUik!) .Formal ^ j ^s jj^i : Picture 

.( False , True ) .J-^ J! c> : Right To Left 
^ <^uii Jc. Form-S' u 1 ^ : Start Up Position 
.( >>J j' ( -®J 3k j' </' ) .U-ajJ' £J>» ^ ^ Jflaj eS^t : Tool Tip Text 

.( (4j ) £0* ; Top 

.( False , True ) ,<A>- : Visible 
.((4j ) .jJ 1 ' t»- : Width 
b ^A-ajIs (^a ^ a ^ <^L&\ ^ Form-U ^ ; Window State 

\ ^a^ 

.Form-i' Jc. sjUll jjj Ja*jjaJi dc. d^ du^il jaj ; Click 

.Form-i' SjUli Ak. d^ d^l j *j ; Mouse Move 

_AdUill ^ic. A^JajC.j Form-J' Qli La ajlall .lie. d)4aJ dl4aJl ^j ; Load 

.Formd ^iAidi ^ji ^iiaiimL 4j& di,i\ i l 5 -^^ *— vw\t j&j \ Ksy Down 
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?Line j* ^ : Jl>» 

^ 0 (_j£jai^ _Lj^)AlJa 4 ^ y 7 q'i\ J ^>>1^JjujJ JaA. (_JC> 0^)ljC- 



6 L&4 


?Frame j* u : Ji>» 



7 L&J 


Ftamel 


^Picture ji Image j* ^ : Ji>* 

.( 8 l&s ). C- (_£^ >Vuha 1I lA,lia»J 4aJai«a ^jC- o^jljC. ^A 


8 JL5 


?Combo Box j* u : J!>» 

_l^-La .1^.1 j j)\ liklJ ^ojujj ‘A.V W ^ CIjULij ^Ac. (_£jl^. J (jc- a^ljc- ^A 

( Q 


9 [Combol 
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?Shape j* ^ : J'> 

1 Q (_J£ju1 ^ (J? -^7“*^ ^a-l^lLujj A jjgjAlA (Jl Sx ^jC- GJ)\jC- 


10 



?Check box j* u : Jl>» 

,( 1 1 ^ jl <La^/lc. £jJaj (jAJ al^l <jc< o^Ijc. ^A 


11 


F Checkl 


^Option Button ja u : J'>^ 
4_iLaC, ^ Form-S' j <j-a ^J ^ajVunJ (jc. oj^-iC- ^A 

.(12 d^).J^I 

12 J£a 1 Optionl 

?MMControl j* u : Jl>> 

_( 13 J Clij}x^a]' (Jix221] oIjI (jc- ajljc. ^A 


13 


K 

M 

r- 

[f 


ir* 

r~ 

f' 

y 


;v: A*^Lall = * A A «A A 11 *)!«—>\j1 ^Jj^44^ j j 

^ s^Ull <J*»&11. L&aI.V\$A\ l 

11 
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( J-flill) 

Aa jjJu-a Ailajj ljULuIoj 

**0^1 JUj!** 

**0*UI j^** 

.Visual Basic 6 ^ ^ -1 
.Standard EXE -2 

<jj£j ^ alatHlui AjIaJI f Form-^W (_ s -gjujJ La t^LaLal (jVl .W'Lu -3 

' La £jj| cilli .LLi^l Ailit-a 

.( 14 ) .c>Vl J! 4*3! -\ 


14 h • n & y n, 


► 


o.o 


4800x3600 


.( 15 JLS ) ^ jljjVt Je- J-*il 

15 


px, Projectl - Microsoft Visual Basic [design] - [Forml (Form)] 


File Edit View Project Format Debug Run Query Diagram Tools Add-Ins Window Help 

fi? - h * tb & a * % fe #41 ►! ii ■ STtfe ^ * ea & 


\ 0 ^ ^9 La£ c^LaLal AajLjll (j^9^ “4 

JB X 


0,0 


JO 4800x3600 


General 

^ M 

A labi 

□ _J 

p rr 

II m 

±J 


<1 ±J 


6> 


EQ3 


O 


-rr 






no a a 

- Projectl (Projectl) 

B si Forms 

Q. Forml (Forml) 


Jl 


^asc^f^a^j 

*31 

Forml Form 

d 

Alphabetic 1 1 

Categorized | 

|(Name) 

Forml 

1 Appearance 

1 1 - 3D - 

AutoRedraw 

False 

BackColor 

BorderStyle 

□ &H80000C 

2 - Sizable 

ICaption 

Forml 

l . : 

Appearance 

Returns/sets whether or not an 
object is painted at run time with 
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C5 ic. 4 _ajuojI jLoull ^fjk ^ll\ dll j&\ 4_dla Label Sbl ^gic. Jaidal -5 

<1x^.1 j Form-i' ^^>>1 

!^)£j 4_ilc. ^)£jl ^ajud^)]! (j-a ^gVn Lade. -0 
; I i3 l \ j'K /n ^jj^lajuj Aaai joj /oAjJL^. 4.^. j] liLaLal -~J 

Private Sub Label1_Click() 


End Sub 

Label 1 .caption-'d* V 

Private Sub Label 1_Click() 
Label 1 .caption-'d* V 
End Sub 


: U l^iu -8 

giUli 0 j& J ^ -9 


4 j^j] ^^ic. F0 jj Ls^ -10 

.4^‘ 4A=»*^ a , 44^- -5aida', Form-5' Labell -11 

* CJ dli* 

Private Sub Label 1_click() 

_^j]| j| L>» jJall 4 jl,aC. ^k “] ^k^j £J^a 1 e-I^^L/' 4 j'-1j ■ 

Labell.caption= "L±^.^a" 

L±^.^a ^ *LoK = l_lj&a]| <_>*ai5' 4_L^aLk ^ \ ^kj 

End sub 

44-^ ! eLx-a 


\ La£ _4_u-aldJl Jjaljj La ^JJJU £-a 4-U^aLvJl ^uxj l 

Labell .visible=True 

= j4-5=»V' 4^>5d. ^k 1 fkj o^Ll' 

Labell .visible=False 

y = j4^V' 4^^ C5^ 1 fk j 0^5' 

Labell .backcolor=vbBlack 

= 4 _jiiaJI (j^l 4 jj.^-»Lk ^k \ ^kj (j^aj]| £4^° 

Labell. font.size= 18 

. 1 8 — -5xaJl 4 jj.«oLa. ^a \ (J^ai5l ^JJ^I 

Labell .forecolor=vbGreen 

.^>dxk' — L-Jj&all (j^5 4j;>.old. \ ^ a£J^a 

*( 4_lj^aLiJl t—Luolil La t_u£j 4_lj^aLk jLLkj oLV' ^juoI L_U^j )* 


Tl^ al * 
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Private Sub Form_Load() 

Textl ,text="Book" + "ed" 

Forml ,caption="u^ g-b y 
Form1.caption= 3 + 3 
Text2.text= 5*3 
End sub 

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 

Forml .backcolor=vbBlue 

Timerl .interval=5000 

Command3.left=2500 

Labell .left=Label1 .left + 50 

Command5.left= Command3.top - 100 

Textl .enabled=false 

Command2.caption="" 

End sub 

Private Sub Form_Load() 

y c ‘LuajC'j 4LLuu Q±i sjiili y Formal $-1 ‘Liju 

Textl .text="Book" + "ed" 

.Booked=" ed" + "Book" 3-*^ = ^ 1 oaiii jj>a 

Forml .caption="L*^ 

jjii, 4jjjtj ^c_aljjj ) 4 Aas. = i_j y all 4_iualk y \ Formal 

Forml.caption=3 + 3 

33 =3 + 3 = ^dik y 1 Form-5) 

Text2.text= 5*2 

10 = 2*5 = ujjjLall Qajl\ 4_tuaLk y 2 ^ J 0^551 fciJ* 

.oil e-Luul 4-u-jbJl 4JVI y l$-oij4lui .,_5jki 4..iLa& 4j yl 4-g^jA.tlj ^S. 4j.riKII sift ; 4ik^La 

End sub 

*U*yi 4ji^j 

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 

.1 jj5l 4!J^ j' 4jioC y 1 pUj 

Forml .backcolor=vbBlue 
.Jjji = (jjl 4j^alk y 1 Form-51 
Timerl .interval=5000 
.( 5 js ) 5000 J* J-»*d 1 j»Sj bja>Jl 

Command3.left=2500 
.2500 AJaiUI ijc J&i\ y 3 jjll 
Label 1.left=Label1. left + 50 

,<2Luta 50-| JjuI <jSJ 4jlLa Jla ySft) 4*24a«aLk ^2 1 *2j 

Commands.Ieft= Command3.top - 100 
.4iu*a 1 00-J JSS 0^5 3 fSj jj55 ^J>a*Jl £2j*5l o-Aj ^ ^Sfl 4*2 j* 4j«aLk y 5 jjJ) 

Textl .enabled=false 

,(jS>AA jjC- = (jaiLajJI 4j*dLk ^2 1 ^2j jjj* 

Command2.caption="" 

*LtyaLk y 2 jj5l 

End sub 

4jlgJ 

; Aijliill ajliaJI ^j sjliaJI | (Jl jjuj 

Labell .width=Label2.width + 65 


Timer2.autosize=65.545 
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** 2 v ^ 4jj** 

♦ 

.Visual Basic 6 ^ -1 

.Standard EXE -2 

0 -* o-aj u^j^j ( Command ) £>j t> jj Form-" ^ o-^' -3 
t, j-^ 0-* Jj ( Label) £j-j o-* c - 1 '— 5 *o® j ( Text) 

.(Option ) 

I La £jj) JjjJUJ La *LOV * 
.TOOl BOX ^^.^01 t—1 jlLiOl ^jj^ajjOl ^gic. -IaijJal -I 

,LluiLiOl as^JL A-ajujjlj Formal 4-lA^I -L_l 

: Jj us Formal o.& o' -4 


Is] Forml 


SB® 


| T extl 


| T ext2 


| T ext3 


Labell 

Label2 

Label3 


C 0ption4 | C 0ption3 | C 0ption2 ; C Optionl 


Commandl 


Properties Window: cii^jL»u» a lIhjujLuj a^.jj 4_ji j£h 

.Toolbox j Form Layout Window j Project Explores 

; AOlOl jljjVI -iaijJa! oU jlgJaV* 

%$ Gf & 

(j-c. ^ 5 Properties cB) ^ Labell -6 

.(JjVl ; ^LLa Aj5 (■ - iiSI J La ^juaO Q J L»"< . n A t a n A\ i _ s lc- .laOu^ Caption 

A _OS 0-C. Oj-JiO ^a_J Properties cB) ^ Label2 os-^ -7 

^ajil ; !iL-a aU c_OSIj aIs.Iju U J Oalui * Ig-li a j ^lu: j Caption 

A _ OS 0-C. L \ ll ^a_J Properties 4-oti <^\ ^ Label3 -8 

.^OlOl ; L>LLa aO <■ _ilSI j aIsJaj La ^joLal (JOaO. ja-a 1 * ll ^ 1 <Jc- Caption 

, Text o^ Oi^jI fO , Properties J] £ Textl -9 

.Alkl^J La ^juiO (JjJo'n aL4 \ * ll ^ 1 

, Text 0° ^, Properties J) ^ Text2 -10 

_aIS.IAj La ^julO OOall*. XlA \ a ll ^ 1 Jc. ^ 

, Text 0° ^ , Properties J] ^ Text3 -11 

AaS } LOCked OS 0-^ Lja_jl Oj. ^ jt _aOS.1^j Oa ^jui-al (JOalLui-a l * ^j JlaJIuj 

aLjOi ^ ^kiaL a JJ o^ Jja*0i (^Sl .True 00»>' .c 5 U u * j 

‘Lcom is 



































































(jc. clla-jl ^aJ Properties Jj £ Command 1 -12 

,^uU]| JiL=kj] ; HiLa Aja <■ _ii£'j aI^Iaj La ^jal»a ' dA 3 ^ Caption 

^LaK (j X. CLl^jI ^a_J Properties J) ^ ^ Form-N -13 

^a-J 4_uoil_^, AJI ’ LLLa 4_ja i__u£lj 4 _L^,Iaj La ^•■jaual (JjJalLai-a \ * ll^ < ^iu., Caption 
jiijj mi $jbin <*-o* , Border Style cp l^*j 

>> i i *Uiii Form-1' ? ^^iilj ^Li ^_lL Fixed Single 
jlL \J 4-*A\ ,(_ 5 jLiiiJ LfcilaJ Jc. 5 Right to Left Cp L^jI L^jI 

. jLuull J) cp Form-" u'd 10 lA True 

: l£ J"d' ^Aj' j (A ■P'Ji C5^' Ajjiji Jji j (ji CLilJ Iil* 

Lj * ->• ^j_<a <• - ikJ J 4_ilc. JaxjJal i( *J^a l * \; <aJ ^Ic. * a j |COn Cp L " .'' * 

.( lsjA 1 *" ) .4^ 

di^i ^ 5 Properties 4 Option 1 ^ -14 

_+ ji ■ ^La l .'j aI^Iaj La ^joLai J.;l»"<. a ^ t * ij,^< ^ic. -^Ljuo^ Caption 

di^i ^ 5 Properties <A. 4 Option2 A*- -ki .^1 -i 5 

.- j ^jia; lll» aA c_±i£i j u ^**1 J jL » h^ Caption 

;l*k j_c. di^ji ^ 5 Properties d 5 Option3 ^ -16 

.X ji c_JjjJa ; LLla Aj 3 t_u£lj AiklAj La ^JOLA ' c?^- ■ 1 A^, Caption 

di^i ^ 5 Properties <A. ^ Option4 ^ iai .^1 -i 7 

.4- jl <AJoi ; LHa Aj3 (. -Jj£l J AiklAj La ' c?^- Caption 

; Form-i' lKl> qjAj u' ^jLA^' o^a J£ -18 
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A 4_^Ai^a_Sl liU ^'iVi joi _t_^.jL^a !^)_aj ^ ^cjLill ^l_^jj ^ jJ) cs - ^ “19 

\ La ^jj^lajudll qii a^ylVxA c.ii£l -20 

Dim A,B 

A=Val(Text1 .text) 

B=Val(Text2.text) 

If Option 1 .Value=True Then 
Text3.Text=A + B 
End if 

If Option2.Value=True Then 
Text3.Text=A - B 
End if 

If Option3.Value=True Then 
Text3.Text=A * B 
End if 

If Option4.Value=True Then 
Text3.Text=A / B 
End if 


^L^«a iaxjJal -21 

4_iLxJI j2Lklj fJij (jLLiill C5-Sj ^-3j <_s' eg- 3 S-L&l -22 

CS^ 1 ■^ a ' ^aJ 4 

; ^jLJI JjSII ^ jLi * 

Dim A,B 

.( lk’ , l>“ JL>) .Bj A 

A=Val(Text1.text) 

.JjVI £Jj-a i_5^ .L-13C. L<u3 — /\ ^utiaJI 

B=Val(Text2.text) 

£jj-a cA .L-lic. Lcu 3 = B ^^JuLall 

If Optionl .Value=True Then 
Text3.Text=A + B 
End if 

La J-a&li .^,'i'v'nj.i.all (Jj 3 (j-a CljjjlbU ^3 ^-a^JI aljl ClulS L] 

B JJ*La]l + A J^*La]l — ~n\I ^-JJ-a 

Ja^Lu]l LLgj 
2uL £. Ij&Aj* 
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**2 , 1 \ \** 

.Visual Basic 6 -1 

.Standard EXE -2 

j ( Command ) £j-j u-* jj Form-5' -3 

.(Text) 

; La £±j| (Jjjuai La c-Loijy * 

.TOOl BOX L-]jU~i<a" -I 

^ UtiLLaJ' AS^JU A-ajujjlj Form^' -L_l 

: Jj La£ Formal J -4 



Properties Window : ^j c^LLiu^ tiiLLLL ^-k. -5 

.Toolbox j Form Layout Window j Project Explores 

; 4-liL]l jljjSfl LS^" •L**-^ 3 ' £>L& ^jt-gJaV* 

%f S’ * & 

, Text c>& Lii^ji ^ 5 Properties J) £ Textl -6 

PasswordChar lp LjojI d^j ^ u ^^ai JJai^ ig n ^ j cs-^ -^La 

LLa ^Jjai j-aj£ <j' 0 -^L£ l£^' jL*LL' 4j 3 C_ii£l JJaluLa Ig-k a J ^g-k. Aadui ; 

* 4 ^-v *1 \\ ^jLtJU! 

^LaK (jx. Lli^jl ^aL Properties J) L_*ii ^ Command 1 -7 

; ^LLa <J3 t_u£lj La ^ju^al (J J * a ^ 1 * Ij. <aJ ^Ic. AaJLu ; Caption 

^LaK (jx. CLl^jI ^aJ Properties cA' ^ Form-" -8 

.4 jl II ^aUaj \ !}lLa <_j3 (.- 1j£'j La ^jotal JjWn ^a \ li ^: jx ^iu., Caption 

<j5 ^' .l $ to* t i ^s-it * « , Border Style ljaJ duaJ ^ 

^UjI Form—Si ^vl, xl \ Fixed Single j-LaI j 

.ls jW^' to* t $ n ^ j Jc. 5 Right to Left 0° L^J ^ 

. jL^' J) o^4' l> Form-" u'True jL ^'j 

: L$J^l "LLjjl j C5^ C5^' u' ^ j Lj* 

L] tSl jW^ t ll^.lj A i\c- Jass_jJal 1 g ~ija 1 Jx AaJLu: 5 Icon t> LI^ajI 

.( 
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: Form-i' cJ^-L ll& u' u^'j-9 



.Open Jai^at <L Add Form <*3 Project j3^ij ^ cj!jLvi ^>iV -10 

: yLiJi $j^K Project js ^j Form ^ -11 


Project - 

3 roject1 ® 

m a 

a 


- |3? Projectl (Projectl) 

a Forms 

Cl Forml (Forml) 


Forni2 (Form2) 


Vj Ajlc- i^ya A-LaaJLuj 0 aU^)j]I (_)<a^J (_£.i]l J& F0nTl2 (j^ ^ “12 

. 6 jU-^V Tj* 5 Forml Project o* -13 

_A_ja^a^}Jl LjIj£j Aj^aLaJl 4 -s.a. ^»\l tfU ^lalluj !^)ij ^ j j j ^Ic. ^~ > '* ‘ ^**' “14 

| ^_gij La jjjluJl (jJJ o^jujLua (.- ii£l -13 

If Textl .Text="8k5" Then 

MsgBox"^jLi 4? :v-j ^i",vblnformation 

Form2.Show 

Unload me 

Else 

MsgBox"^L^ LL^vbCritical 
End if 


La (J^C-li "8k5" A-aK = 1 (j-saill ^j^<i (jl£ lij 
"^-aL^ill 4L " 1 g a j aJLujj ^j^-a 

.Form2L' j$-L' 

LLLill (jc. AjLa^Jl ^allaj 

La (Jstal V)j Jaia 

"AaiaLi. A^aH" 1 g Aj^jjJI^j aJLujj £J^a 
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.Visual Basic 6 ^ -1 

.Standard EXE -2 
£ j-j j .(Image ) £ j-> o-* t-tj* Form—-3 

J* Picture j Image > i^aj .(Picture) 

.Tool Box ^ j&\ 


Picture 


Image 



; ajJUII eiuiVi Picture jj^ c> Image o$ 

.Picture j.:* j o^j image -' 

.Picture <&h> auj^? Image uj^ -m 

; Jj La £±51 <3^ ^LLiV * 
,TOOl BOX L-ljjUn^aH JaijJal -j 

,lijujIIaII as^JL 4_ajuojIj Formal <^11 c_iAi! - 4-1 

: Jj Formal ujIj J .4 



Properties Window: dj^-iLo 11 ' ^ lIh jjjjl xii ^_lc> 4_ji ^b -5 

.Toolbox j Form Layout Window j Project Explores 


%l & * U 

(j£- pL Properties 4-^ cP! 4^1 ^ I mage 1 ■ iaijJa ' -6 

Ic- iai^Jal j 4 _-ajli till ^jilLuo .4 jlc- JaijJa! (JalalLuba \ g n<aj '^T^* 10 , Picture 
C5-S ft.Open C5-L- cSSjL-fra. L)-^ ^5-^' ®J^»b' 

^ .Properties ^ Strength u-e. ^ .Form- 5 ' 

.True j^' ^ I .(JJ^blaLa \ g 1 Uj 
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< 3 -^ .Strength LjV s ^ ^vil i <jV' ( x jWn > n -7 

.Picture jj^ &j* ^ jpj Image jj^ 

<jX. L' 1 -\ ll Properties 4 -^ ^Jj l_l* ji ^ 4 ^ Form-1' -^=>' -8 

.^a-joil ) HiLa 4 _is aI^Iaj La ^joLa! <J.dL»"<.n a t^ h ^j 3 -ic. *» j Caption 

jiL \j 4 ^jai .< 5 jbin , Border Style cp l^j! 

4 .Li^aUjj] *\Ji\ Form- 1 ' ^nib ^bb Fixed Single 

>^L'j ^ia' .l 5£-b>* t $ ij A j ^^Ac. o^lu! 5 Right to Left lp '-baJ Lb*b 


Form-1' ■ 4^4' tP! uh 4' c> Form-1' u' j-^ ^ True 

.Properties ^ start Up Position ^ cp 4_uiLuaH L. 1 ,ij ^3 ^)^_laJ 
.Center Screen jLl'j 4b& .<_$jLil' J jAvb a i g n ^ j ^4° 

: bj^4' ^j'j c4 c^' 0^jj4' u' ^j' '4* 

bj bjl * <j_a L-llb j 4 jlr- Jass_jJal i( x_J^a l * \;^ j ^Ac. b'' ‘ n , ICOn Cp L " 

.( ) .4^ 

: Jj b£ Form-" uj4 J -9 
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.Visual Basic 6 ^ -1 

.Standard EXE -2 


J .Add Module J^' J . ls J^' J Project J^ -3 

.Open Jai^al 

. g.1 )-v^Vl J^c-j CjUKII (_)jjiia La Lg_i3 (._ I'i^i .4x.jla A till ^Iq'nti -4 

Option Explicit 

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _ 
(ByVal IpszSoundName As String, ByVal uFlags As Long) As Long 
Public Const SND_SYNC = &H0 
Public Const SND_ASYNC = &H1 
Public Const SNDJMODEFAULT = &H2 
Public Const SND_LOOP = &H8 
Public Const SND_NOSTOP = &H10 
Public Sub PlaySound(strSound As String) 

Dim wFlags% 

wFlags% = SND_ASYNC Or SND_NODEFAULT 
sndPlaySound strSound, wFlags% 

End Sub 


* JJbug] ( a^-a JjSil life * 

Properties Window: L»‘> 11' ^ jujI juj 

.Toolbox j Form Layout Window j Project Explores 

; ^Jo -LijLal J Jll oLa JgJaV* 


%$ nf* X u 

: Jj 4J Project Explorer j Jj J -6 


Piojecl - 

Projectl ® 

m m 

a 


- Projectl (Projectl) 

i3 <“9 Forms 


Forml (Forml) 


E O Modules 

Modulel (Modulel) 


TjSj Project Explorer J Forml J^ -7 
^LaK (j-O I*! -\jl j Properties <J] J ForrrJ' J& -8 
b C!j 1 j)x^a I J-liLjuiJ ; !>LLa (.-Jj£lj AiklAj La JiL~;, n a t * ii a < Jo 5 Caption 

.c 5 JJ^' t $\\ a \ Jo t Border Style A -^ j 

Form—si * \ \ jll Fixed Single j 

$ jj=»' £■*_>* 14 L a j Jo .iaowi 5 Right to Left Jo LjaJ diaJ ^ J 

cJj (Ji. JJ' J] Lti-J' Lm Form—u' j-^ j True Jl' j 

j Start Up Position ^ *LuiLui]| Jajuoj ^^3 ^g_iaJ Lajl^ FOmrJ 
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Center j <4^ .</44^' os-^ ^4— .Properties 

.Screen 

: (J J"4' ^4*^' 44 j c4 -^4 y4' AjjSji JjAj J 4* 

12] L-ll^l j A -lie. Jai_jJal i( x_J^a l * ii ^ j ^gic. '' l '4 ‘ n , ICOn L " 

.( L$j4^' ) .44 l4 

uIjSj -ulc. jSiij .( Command ) £4 i> jj Form-5' -9 

: ^ uo^' 4^' -10 

PlaySound "c:\windows\media\windows xp startup.wav" 

Cl) jj^a ^qjuoJjuj ,0 -aU^il (JjijJili] F5 -11 

J2a UjoijD ^3 Ja£3 Wav £^4 4® L 9 Jk ^ a 44^ 42fLa-j " 1 A ]n-\^Lo * 
tiOij A \\i in ‘>1 Wav (In® ‘^4 £ ^ cs~^ ‘•"\J L ^» (_4 ^ jJlrvJ til ; 2 4 ^ ^ * 

ji c_a^)_^. .(JjLuJI (JCiaII ^_9 al 1 a^ 11 *Lo_ju3j o^Lai^Q > ;-Wi< 

f . t 

.Cll^gj^a ^<a‘i t>i 1 (_jj 3 <. il^a. i 
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**£CJjLLa]| J 1 .Vv-^ J** 

.Visual Basic 6 ^ -1 


.Standard EXE -2 
^ Image jj ^ Form-5' ^ -3 

.View Code j^'j Form-" o^Vi jjiu iai^i -4 

: yuii ^ <«uis ^ -5 



.Form j^'j General J! s-^i -6 

.Load Declarations -7 

j-^'j Declarations Load a-^K -8 

.KeyDown 

; ^JLilll j gknn -9 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 


End Sub 

If KeyCode = vbKeyllp Then 
Imagel.Top = Imagel.Top - 10 
End If 

If KeyCode = vbKeyDown Then 
Imagel.Top = Imagel.Top + 10 
End If 

If KeyCode = vbKeyRight Then 
Image1.l_eft= Image1.l_eft+ 10 
End If 

If KeyCode = vbKeyLeft Then 
Image1.l_eft= Imagel.Left- 10 
End If 


La U$jjj L_u£i -1 0 


La 

If KeyCode = vbKeyUp Then 
Imagel.Top = Imagel.Top -10 
End If 

La ^3^' cs^ L] 

.diLLk \ 0 Lgjl^a jil \ g * jJaj ^5 

** <HaV' A^ £* \&»J ** 
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**Menu Editor pi&\** 


.Visual Basic 6 ^ -1 

.Standard EXE -2 

.Menu Editor £ .Form-5' jA -3 

; ( _ 5 A ( _ 5 ic. jg_laJ (ji C -la>J A-ajtali -4 



.Next ^ .F : ^ Name J *j ^ Caption A A^' -5 

+ | 'A 4.J A AALaJjl CS^" AkjJal -0 

.c3^-A : ^ Caption A A^' xJaj -}3 iaUlilt j-a A*~- j ^ *» -~[ 

.Next Jaij^ai ^ .FI : ^ Short cut A' A .E : Name <A A&'j 

\ ^)3^' 'A 4jA A ** 0 " AaL^j) (_£2D jA' LS A “8 

.o^c-La^o ; !>liLo Caption <_5-a L .I A .<•—i3,i ^ jls <_£jA iaLaj a_c. j^-s^ ,w‘i j>>i -9 

.Next -laical ^ .H : ^ Name A&'j 

■► | _jA' 'A 4 ") A (_£^5'j l)J A' AAl_aj| <_£25l CS^" “10 

.^jjA AA : Caption ^ A^' .^*- jJaj ^3 Jalklll j^j-a Ac. ^aa>_a * >' ~ 1 1 

.F2 : A Short cut c> A' ^ .HE : ^ Name J* A*'j 

■ <jA ^ ^tssi jj£j ji 4 -i^j -12 
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Menu Editor 


Caption: | £ 9 >ill 
Name: 

Index: 


OK 


HEf 


Cancel 


3 


Shortcut: [(None) 

HelpContextlD: |~0 NegotiatePosition: [p-None ▼ 1 

r Checked W Enabled W Visible I WindowList 

Delete 


Jfiljklil 


Next 


Insert 


lsUj o 


9UtJI 


.OK^J^l-13 

(jX. ^a-J t Properties J) Formal -bi^i -14 

cs-^ True .LSjbib>' cs-^- ^ , Right to Left 

AaiLUi jsLuij ^ j^-bj L^b Formal . jluull u^4' c> Forrnb' <jijj& 

.Properties start Up Position ^ ^v?i 

.Center Screen j^'j ^ 


Ajula 


: 4ijj'j ^ AjjLi jj;«j (ji bj* 

b] J A jb- Jai_jJal i( x_J^a l* 1 a^ j ^gic. ~' I 7 V ''‘ 11 , ICOn 0^ L " ,JV .'' 

.( LSjbb>' ) 

: yAj b^ Aj 3 L_±Sl ^ Jplfb Jc- Ui*>A £ Ulb Jc. Formbl ^ JaijJal -15 

End 

Unload me 

■ A_l3 l U^l ^aJ A_lSJ^ ^ic. b» l >>' o^C-LudX ^Ac. Formb' ^^9 b» l >»l -16 

MsgBox"cPbb -b^' ^information 


l 0 b ^ 1c. b» L >» J \ a \ )n. Aj[ AaJlAil (J jail] F5 ^bi -0 (_ 5 -b bi L >»l -17 

A ^aJ S^C-Lud-a L " 'b* A^3 bjj J ^aJJ l—fljjud (_3^b. ) 

,Wl j>ti FI cs - ^ ,^c-aU^)b! (j-a A jqj^ qC. aJLoj^) (.4jbanm A_j| 

jgi F1 J j CS - ^ bat j>>» \1 ^all-J LaAjc- 4_i! bat^Jaj a! LijV A_3^b-I ^>"n m ^j! 

(jXc! A ^j£. cil j AJboj^) c4jbatj juj A_jb j p2 jj ^-a I^Aj _0-alj^)bl 

_0-alj^)bl 
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**Toolbar 

.Visual Basic 6 ^ -1 

.Standard EXE -2 
.Components ^ ukJi ^ Project -^=.1 -3 

; jfrkLo, -4 


Components 


Controls | Designers j Insertable Objects 


□ :-) VideoSoft vsFlex3 Controls 

□ XTabs :: 

□ Active Setup Control Library 
G ActiveBar Control 

G ActiveLock 1.5 (VB6 SP3) 

□ ActiveSkin 4,0 Type Library 

D Adobe Acrobat 7.0 Browser Control Type Librar 
G AIxTB 1.0 Type Library 

□ ataDictCtrl 

G ataProgressBarCtrl 
G, ataTrans 

IZ AudioControls2 ActiveX Control module 

< I > 


t . o. - 


aA 

_ L 

fin” 

K= 

992 

35" 


>7. 

... 

*=J 


0 



Browse,., 


Selected Items Only 


:) Osen Kusnadi ® XP Form ActiveX Controls © 2003 Osen Kusnadi, All Rights Reserv 
Location: L: \... \Secc Source Code\OCX\XPForm. ocx 



OK 

Cancel 

*» 1 




.OK -iaijJal A laZiu ^jC. l‘* la.ji 

Microsoft Windows Common Controls 6 (SP6) 


Components 


Controls | Designers | Insertable Objects | 


Microsoft Tablet PC Type Library, version 1.0 <>v 

tZ Microsoft Telephony 

Microsoft Voice Commands 
Microsoft Voice Dictation 
IZ Microsoft Voice Text 

Microsoft Windows Common Controls 5.0 (SP2) 

•y Microsoft Windows Common Controls 6.0 (SP6) 
Microsoft Windows Common Controls-2 5.0 (SP: 
Microsoft Windows Common Controls-2 6.0 (5P- 
Microsoft Windows Common Controls-3 6.0 
Microsoft Winsock Control 6.0 (SP6) 

IZ MightyMouse 

MS Video Control 1.0 Type Library 

< mi | > 


i3> 




l^~l lon=l 


Browse... 

r Selected Items Only 


:) Osen Kusnadi ® XP Form ActiveX Controls © 2003 Osen Kusnadi, All Rights Reserv 
Location: L: \... \Secc Source Code\OCX\XPForm. ocx 



OK I Cancel 
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±n .Form-5' Jj ‘LlLii j^V' Tool Box c> ^ja i -6 

: Jj Form-" jj^ J -7 



4_^k jjrki ^ Properties cP! ^ ImageListl ^ -8 

.Custom 

; JUK 2Luli ^ j^ku- -9 



Insert picture jj ^ .Images L^ j^'-10 

0a1_ajj ^_a 1 ^1‘iVi joi jj^ " ^ j«q~n (j' A^U .IaAjjj jj>-o'l jljJaa.U 

.ImageListl J! 4^5 ^ ^ 
jjj Toolbar cP! j j j-o l j\iu 0aUjj CaxAuj Uj| LiA jAa jiiijjuo * 

. jiajV' jc. CliLajLtja 11 j. Jaat j j^.' jjj c.L<uu2! jc- dlLajlx-a 1 i j. >■»» j j^j 

■ JJ^I c> L> ^*La] uj^ J 

lndex-5' j .0 jj^« l 5^5 Index-5' ^ J -5^ J tsLlc. -11 

| ^Jj La£ o jjj^a (jj3 ^j^.j-a 
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.aaLIi . i ■ jA LgJ index-i' "Oj j ^ a ■ * 

_lAAJ^)j ^gVn Laiic. OK cs^ “12 

< ^Ji 4_iic. laijjalj 4 -ajuijj CLu3 AJ <jill FONTI-^ <j^ TOOlbarl-^ -13 

.Custom j^' £ Properties J] 

\ La£ *Lajll till ^Jajjuj -1 4 



.ImageListl j^'j ImageList g;^' oWvi ^j^li -15 

.Buttons J! 

ht |:ps://iadidpdf.com 30 _ 







































































c-xiUj ^Ui ^J) £ .Insert Buttons jjM -^=>' -16 

.jj^Ji u^? c> L 5 ^' s.Index-*' ^ j Image 

. “\ ^ IjA ^liLo * 

£J^>a]I ^9 a9j^)j ^sjujV' A_jIj£ ^jc. (^j-ajaa ^-iaj (jl c^llfLoJ j A a* 

.Caption <aK c^U-j 

.OK Jai^l ^ .SA : ^ '<*& Lf \ Key ^Uj ^ ^jA\ ^ c^i -17 
.Form-*' ^ ^jaII Toolbarl ^ u>>> >i ' -18 

\ Ia ^jj^)lajudl! ^jjj L - £j£l .Aj^a^II Aj^.^ 1 linn - IQ 

Select Case Button.Key 
Case "SA" 

MsgBox "^).i^k. J^j ^,jVi A\ jk", vblnformation 

End Select 

A_ji ,W‘i joi L ^* A ilc. (_£3J| CS^ *"** L ^**' J .^laU^II (J i* jou! F8 -2a*jJal -20 

| ^Jj Ia£ (_pa^)V' (jc- CjIa^Ixa diljJax lui 
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**MMControl ^ j ^ 

.Visual Basic 6 ^ -1 

.Standard EXE -2 
.Components ^ y*Ji ^ Project -3 

: jfrkLo, -4 


Components 


Controls | Designers j Insertable Objects 


□ :-) VideoSoft vsFlex3 Controls 

□ :: XTabs :: 

□ Active Setup Control Library 
G ActiveBar Control 

G ActiveLock 1.5 (VB6 SP3) 

□ ActiveSkin 4,0 Type Library 

G Adobe Acrobat 7.0 Browser Control Type Librar 
G AIxTB 1.0 Type Library 

□ ataDictCtrl 

G ataProgressBarCtrl 
G, ataTrans 

IZ AudioControls2 ActiveX Control module 

< I > 


_»II.-J. ■ 



_ L 

fill - 

E= 

992 

35" 


it7. 

*=J 


0 

lH] 


Browse,., 


Selected Items Only 


:) Osen Kusnadi ® XP Form ActiveX Controls © 2003 Osen Kusnadi, All Rights Reserv 
Location: L: \... \Secc Source Code\OCX\XPForm. ocx 



OK 

Cancel 

*» 1 




^ 4jaZiu (jC- k‘*la.ji 

Microsoft Multimedia Control 6.0 


tps://iadidpdf 


Components 


Controls | Designers [ Insertable Objects | 

Microsoft Hierarchical FlexGrid Control 6.0 (OLE 

□ Microsoft HTML Object Library 
Microsoft InkEdit Control 1.0 

□ Microsoft Internet Controls 
Microsoft Internet Transfer Control 6.0 
Microsoft MAPI Controls 6.0 
Microsoft Masked Edit Control 6.0 


Microsoft Multimedia Control 6.0 


Microsoft Office Document Imaging 11.0 Type L 
Microsoft Office Outlook View Control 
Microsoft Office Web Components 11.0 
□ Microsoft Office Web Discussions Client Type Lil 
Microsoft Office XP Web Components 
< mi I > 



Browse... 


I - Selected Items Only 


Microsoft Multimedia Control 6.0 
Location: C: \ WINDOWS\sy stem32\MCI32 .OCX 


OK 


Cancel 


Apply 
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® : Tool Box 4 -^ aKa ja 13a j .Tool Box -L^ts ^ j^-ki ^-6 

j_j (j_a Lja_jl ^_udjlj .Form_ 21 (_s_^ *La_ ujjIj ^-2a* _i-ial -~l 

, Label <j-* o«j ,Text £jj o* u-^ ^j'j , Command 
: s jj^i ^ La$ \+A c. ^jL La jjc-j .Option c> cAjuj^ 3j 



cP! 5 Properties ^-2) £ MMcontroll ■ iaijJa ' -8 

.False j^'j Visible^ 

\ La l aq 1 u (. _ ii£i _ la * jo ^JaJjuo ^ CS^ O&j ^jl -Q 

If Option 1 .Value = True Then 
MMControll .DeviceType = "WaveAudio" 

MMControll .FileName = Textl .Text 
MMControll .Command = "Open" 

MMControll. Command = "Play" 

End If 

If Option2.Value = True Then 
MMControll .DeviceType = "AviVideo" 

MMControll .FileName = Textl .Text 
MMControll .Command = "Open" 

MMControll. Command = "Play" 

End If 

If Option3.Value = True Then 
MMControll .DeviceType = "Sequencer" 

MMControll .FileName = Textl .Text 
MMControll .Command = "Open" 

MMControll.Command = "Play" 

End If 

j ( Avi ) j_& Option2 j ( Wav ) j* Option 1 J 
4 ^J js 13) Lai .c^LoJi ±j£1\ ^ .( mid ^^ Option3 

■ ^Ic-J tSljl (JAj 1^9 } j cs^ 
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\ nj iLU jglaJ no ^ ClL9J^a t_aL&j| ^ jj cs^ '-^-J^L' 0 0^ “10 

: 

MMControll .Command = "Stop" 

dljt^i ll CliLaLa jj L-allc- jl i~*\-lie. (. \ y j (Jj* ni M j>^»1 ~1 1 

I <liLaVl Qsi* J A^LLuo .Lljlg-i. jjAiillj 
| ^_gJj La £jj| .F5 ^c-alj^)J! L^jj j! L*J * 

(wav ^->j-^>) C 5 -^ .wav ^j-j u-° <1*Li i»i ^Ui cl^j^JI 0 )L£ L) -1 

: L?h ^ Text o^' ^ ^ j 

C: \ wi n d o ws\m e d i a\s ta rt. wav 

.Cll_9J^a i—fll_aj] Ic. . <_}_-axJ L*l_^alj^)J (j' ,W‘uti °l ,(Jj* ni J ^ L Jai_jJal ^a_j 

.(_£^kl S^)-a (JjxjLj jl ^^gJl LiS^a L-flSjJJjuoS 

^ n^lj ( gvi ) cs^ -^-jCal .gvi ^jL (j-- 0 4-lxLLLoi ^lil jjJuall ^jl£ LI -l_j 

■ ^ Text o-^' (s* 

C:\windows\clock.avi 

. CL_3j-a (. *al Qjl ^ Ic. lax jCal j -L J_axj d_^aL^)J ^jl LaJLai 3 . (Jox, >'*' j ^ l<~- L»4 t >»l ^_j 

.^>1 o^)-a (> _ s -ic. L»4 l >»‘> ^jj ^J| Liaj^a L_fl3jJJjua3 

( mid ^Joi^jai .mid 0-* lsU' ^u 1 -^ '\' 

: t-a Text U-ajil C_i&l j 

C:\windows\media\town.mid 

.c"l Vj^a t_fll_ajl ^ Ic. Jai_jJalj .<_J_-a*J L*l_^alj^)J (j' ,W‘u>i °l .(Jaxujo_j ^ Ic- -lai_jJal ^a_j 

.tf>l S^)-a (JjxjLj jCaJ O' cs^l t —^j'ij jl 


34 


h1 tps://iadidpdf.com 




































**Access 

.Access IJJ ^2ai -1 

CjUUj S.1C. IS ^ jJiaJj A_xjlail ^gil ( Ilia. ) ( L aLo ^ iaijJa) -2 

^aaa^ ^11! j\£xl! <1^1 j .Database : ^l!ia _4_1 AjujJ cilia t—llla-Uil -3 

.OK laxjjal ^is Visual Basic 4 *^ 44 ^ 

^xlAj^all]! (_pa^)C (Jjla. c-Uaj] ^ ^^glc JaijJal -4 

; dll Jg fc.n» _5 


Jj 4 ?- ; 1 Jj 4 ?- f-~l f5]W 


ilLagJI 

GLiLJI p.Qj 

JjLxll A-«jI 

■ 




< 


























































fja.>>) t f- 5 Customer ID : JijVi lU^' ^ -6 

^ | jAj ^i-oJ L5^ talxll 4-ajla]l jj i _gic. JaijJa) ^ 

.( (j^ai ) dlljLnil ^jj jia.1J .Title ! L-L&l -~J 

.( L yai ) cjUinii ^jj jikij .First Name ; JLJ) ^ c_±&i -8 

.( ^ ) cjUU 41 jikij .Surname : ^ &\J\ J^' J* c_±si -9 
c-LAaA\ £ jj >&.! j .Phone Number: o^ 1 ^' lU^' ^ 4 ^' -10 


diLaKlI (jus j l 7 i j£j J 
dlULulLi eLut-a AAjLoJI 


.( ) 

tlhlc L-LaJ (JliLall llA ^_y a-flj (_ 3 fiaj (jl Cllljl lij \ A la*\^La * 
UJ^ J **.' >J ,, .dASLm^allj L_Sj^)_aJi (jjoq'i j AAjLudl! 



m 



^1 

ufiwogjl 

OLiLuJI p.Qj 

Jibdl /XwjI 



;Ckj3p 

Customer ID 

ji 


yaJ 

Title 




i.A' 

First Name 
Surname 

— 



v La 

Phone Number 

T 










































V 




— 


| _a *La_ uj .Jjl_aJl Ja_Aa. clJ_la ^ Alai_ uj _(J}^L_cVI ^_Ic Jax_lal -11 

.Customers 
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'ax. 4_iLk Jj' ^5-a djLiiuli lU^ ^ Customers u^' * 

_L£ uj 4 J .4^ W Customer ID 


S Customers : Jj*> 



Customer ID 

Title 

First Name 

Surname 

Phone Number 

\j 
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Access A 1 

dJJLjj 

ift~t ft )■ - 

^Lii^l (jia*-? jaistJ 

* 







.<J*l£Jb Access-5' c3^' * 
.Visual Basic -12 
.Standard Exe jS^i -13 
^jj jijji 6 j .Text ^jj c> o- 3 cjUjjx 9 Form-5' Lr^' -14 

.Line i> j , Label i> o- 3 cAjuj* g j , Command 
c> 4-^ ^'j l 45 Name-5' g4 Form-5' Jc. 4^,ji -15 

: kM\ s^ Properties 



cmdNext 

cmaPrevious 

cmdFirst 


txtid 

txtTitle 


txtFirstName 

txtSurname 


cmdLast 


cmdDelete 


txtPhone 


txtTitle 1 


cmdAdd 


txtFirstName 1 
txtSurname 1 
txtPhone 1 


.References j^' 4 Ukl! ^uiii' ^ Project ^ -16 

; AkLL 41*^1 j 41 U 1 ! ^IajujV' ^ -17 

Microsoft DAO 3.6 Object Library. 

Microsoft ActiveX Data Objects 2.1 Library. 

.Code 4 4*-5' View <4° -18 

I J^afllilU Jj La ^ ^ij£ll ^ A^-a^d' A^j5 c “19 

Option Explicit 

Dim AConnection As New ADODB.Connection 
Dim ARecordset As New ADODB.Recordset 

Private Sub cmdAdd_Click() 

On Error Resume Next 
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If txtTitlel .Text = "" Then 

MsgBox 5Lii", vbOKOnly, JUj.i ^ » 

Exit Sub 
Else: 

If txtFirstNamel .Text = ”” Then 

MsgBox Vtsil t y cM iL-a", vbOKOnly, ”^UJi JU^I ^ - 

Exit Sub 
Else: 

If txtSurnamel .Text = ”” Then 

MsgBox "ulssil vbOKOnly, "<dahA\ Jl^l ^ " 

Exit Sub 
Else: 

If txtPhonel .Text = "" Then 

MsgBox "03S1I lM 51—9", vbOKOnly, jujI ^ U^" 

Exit Sub 

End If 

End If 

End If 

End If 

ARecordset.AddNew 

ARecordset.Fields("Title") = txtTitlel .Text & "" 

ARecordset.FieldsfFirst Name") = txtFirstNamel .Text & "" 

ARecordset.FieldsfSurname") = txtSurnamel .Text & "" 

ARecordset.FieldsfPhone Number") = txtPhonel .Text & "" 

txtTitlel.Text = "" 

txtFirstNamel.Text = "" 

txtSurnamel .Text = "" 

txtPhonel.Text = "" 

ARecordset. MoveLast 

GetFields 

End Sub 

Private Sub cmdDelete_Click() 

On Error Resume Next 
ARecordset. Delete adAffectCurrent 
ARecordset. MoveFirst 
GetFields 
End Sub 

Private Sub cmdFirst_Click() 

On Error Resume Next 
ARecordset. MoveFirst 
GetFields 
End Sub 

Private Sub cmdl_ast_Click() 

On Error Resume Next 
ARecordset. MoveLast 
GetFields 
End Sub 

Private Sub cmdNext_Click() 

On Error Resume Next 

h |tps://jadidpdf.com 37 






ARecordset. MoveNext 

GetFields 

End Sub 

Private Sub cmdPrevious_Click() 

On Error Resume Next 
ARecordset. MovePrevious 
GetFields 
End Sub 

Private Sub Form_Load() 

On Error GoTo ErrorHandler 

AConnection.Connectionstring = "provider=Microsoft.Jet.OLEDB.4.0;data 
source=Database.mdb;" 

AConnection.CursorLocation = adUseClient 
AConnection.Open 

ARecordset.Open "Select * from Customers", AConnection, adOpenDynamic, adLockOptimistic 

If AConnection.State = 1 Then 

GetFields 

End If 

Exit Sub 

ErrorHandler: 

MsgBox Err.Number & vbCrLf & vbCrLf & Err.Description & vbCrLf & vbCrLf & "oVi g^-Lwir, vbOKOnly, "Error!" 

End 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 

AConnection. Close 
Set AConnection = Nothing 
End Sub 

Private Sub GetFields() 
txtID.Text = ARecordset(O) 
txtTitle.Text = ARecordset(1) 
txtFirstName.Text = ARecordset(2) 
txtSurname.Text = ARecordset(3) 
txtPhone.Text = ARecordset(4) 

End Sub 
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CjIauLjIIJ CllLajLt-All (_j-a .Ij^aI 4-^33 <jjl** 

til ^<aj A A lium all <Jtlll o3_& (j£. ^IxjJl ^ _a di )c, j 131 ; ^jLal) <_£ j_j jc.* 

; 4_lHlij| ^SI^aIIj t-i&ll axJ O^lilLaJVI 

.^ajJ 21 ^ 6 liLailJ (Jl^303 ; C_ jU^ • 

.Visual Basic 6 ^aJ^\ ^jJi: c_jU£ • 

_0 tiLaUJ AjlL ^j^alijil! 4_a^a^)J ^IxJ ' • 

. www.vbzoom.com : diijiii ^Sja • 
. www.a1vbcode.com : £§j* • 


JLj* I Lkt£ JLou£ 
























